(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     18841,        529]
NotebookOptionsPosition[     17361,        472]
NotebookOutlinePosition[     17847,        493]
CellTagsIndexPosition[     17769,        488]
WindowFrame->Normal
ContainsDynamic->True *)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["", "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],

Cell[CellGroupData[{

Cell["\:76f2\:76ee\:7684\:949f\:8868\:5320", "Section",
 CellChangeTimes->{{3.4171298429233246`*^9, 3.417129846828941*^9}, {
   3.417129906925355*^9, 3.417129909519085*^9}, {3.4171303131695056`*^9, 
   3.417130317766115*^9}, {3.41713156657181*^9, 3.4171315913374205`*^9}, {
   3.417131634849989*^9, 3.417131644804302*^9}, {3.41713206820312*^9, 
   3.417132075012912*^9}, 3.4171321095826206`*^9, 3.4171321719322753`*^9, {
   3.4171322125406675`*^9, 3.417132215104354*^9}, {3.4171325259913874`*^9, 
   3.4171325313991632`*^9}, {3.417154279090808*^9, 3.4171542809034147`*^9}, 
   3.4171558088805375`*^9, {3.4171564284414225`*^9, 3.41715643508097*^9}, {
   3.417156610262869*^9, 3.417156614579075*^9}, {3.417162111733595*^9, 
   3.4171621242916527`*^9}, {3.417162624260573*^9, 3.4171626274551663`*^9}, 
   3.417162734108526*^9, 3.4171630490113344`*^9, {3.4171691173882113`*^9, 
   3.417169127242381*^9}, {3.4171694037800226`*^9, 3.4171694085068192`*^9}, {
   3.4171694427160096`*^9, 3.4171694435672336`*^9}, 3.417221355924312*^9}],

Cell[TextData[{
 ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]",
  BaseStyle->"SlidePreviousNextLink",
  ButtonFunction:>FrontEndExecute[{
     FrontEndToken[
      FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}],
  ButtonNote->FEPrivate`FrontEndResource[
   "FEStrings", "SlideshowPrevSlideText"],
  ButtonFrame->"None"],
 "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]",
 ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]",
  BaseStyle->"SlidePreviousNextLink",
  ButtonFunction:>FrontEndExecute[{
     FrontEndToken[
      FrontEnd`ButtonNotebook[], "ScrollPageNext"]}],
  ButtonNote->FEPrivate`FrontEndResource[
   "FEStrings", "SlideshowNextSlideText"],
  ButtonFrame->"None"]
}], "PreviousNext"],

Cell[CellGroupData[{

Cell["\:76f2\:76ee\:7684\:949f\:8868\:5320\:6e90\:7a0b\:5e8f", "Subsection",
 CellChangeTimes->{{3.4191978694188557`*^9, 3.4191978702300224`*^9}, {
  3.4191979014048495`*^9, 3.419197910868458*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"DrawLines", "[", "Lines_", "]"}], ":=", 
   RowBox[{"Graphics", "[", 
    RowBox[{"Line", "[", 
     RowBox[{"{", 
      RowBox[{"Lines", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ",", 
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}], "}"}], "&"}], "/@", "Lines"}]}],
       "}"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"MyTree", "[", 
    RowBox[{
    "PointStart_", ",", "order_", ",", "dir_", ",", "dxy_", ",", "outin_"}], 
    "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"PointNew", ",", 
       RowBox[{"NBVAR", "=", "8"}], ",", "out", ",", "ddir"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"ddir", "=", "dir"}], ";", "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"dir", "<", "0"}], ",", 
        RowBox[{"ddir", "=", 
         RowBox[{"dir", "+", "NBVAR"}]}], ",", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"dir", "\[GreaterEqual]", "NBVAR"}], ",", 
          RowBox[{"ddir", "=", 
           RowBox[{"NBVAR", "-", "dir"}]}]}], "]"}]}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"PointNew", "=", 
       RowBox[{"PointStart", "+", 
        RowBox[{"order", "*", 
         RowBox[{"dxy", "[", 
          RowBox[{"[", 
           RowBox[{"ddir", "+", "1"}], "]"}], "]"}]}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"out", "=", 
       RowBox[{"Append", "[", 
        RowBox[{"outin", ",", "PointNew"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"order", ">", "0"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"out", "=", 
          RowBox[{"MyTree", "[", 
           RowBox[{"PointNew", ",", 
            RowBox[{"order", "-", "1"}], ",", 
            RowBox[{"ddir", "-", "1"}], ",", "dxy", ",", "out"}], "]"}]}], 
         ";", "\[IndentingNewLine]", 
         RowBox[{"out", "=", 
          RowBox[{"MyTree", "[", 
           RowBox[{"PointNew", ",", 
            RowBox[{"order", "-", "1"}], ",", 
            RowBox[{"ddir", "+", "1"}], ",", "dxy", ",", "out"}], "]"}]}], 
         ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Return", "[", "out", "]"}], ";"}]}], "\[IndentingNewLine]", 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Mutate", "[", "Gene_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"r1", ",", "r2", ",", "out", ",", "temp"}], "}"}], ",", 
    RowBox[{
     RowBox[{"temp", "=", 
      RowBox[{"Flatten", "[", "Gene", "]"}]}], ";", 
     RowBox[{"r1", "=", 
      RowBox[{"RandomInteger", "[", 
       RowBox[{"{", 
        RowBox[{"1", ",", 
         RowBox[{"Length", "[", "temp", "]"}]}], "}"}], "]"}]}], ";", 
     RowBox[{"r2", "=", 
      RowBox[{"RandomInteger", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3"}], ",", "3"}], "}"}], "]"}]}], ";", 
     RowBox[{"out", "=", "temp"}], ";", 
     RowBox[{
      RowBox[{"out", "[", 
       RowBox[{"[", "r1", "]"}], "]"}], "=", 
      RowBox[{"Mod", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"out", "[", 
          RowBox[{"[", "r1", "]"}], "]"}], "+", "r2"}], ",", "7"}], "]"}]}], 
     ";", 
     RowBox[{"Return", "[", 
      RowBox[{"Partition", "[", 
       RowBox[{"out", ",", "2"}], "]"}], "]"}], ";"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RandomInitial", "[", "]"}], ":=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"RandomInteger", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "6"}], ",", "6"}], "}"}], "]"}], ",", 
      RowBox[{"RandomInteger", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "6"}], ",", "6"}], "}"}], "]"}]}], "}"}], ",", 
    RowBox[{"{", "8", "}"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.4172214010191555`*^9, 3.4172214029419203`*^9}, {
   3.4191652816731167`*^9, 3.4191652898048096`*^9}, {3.4191653325662975`*^9, 
   3.4191653345691776`*^9}, {3.419165383749896*^9, 3.419165398721424*^9}, {
   3.419165438648837*^9, 3.4191654555731726`*^9}, {3.4191657504571953`*^9, 
   3.4191657519293118`*^9}, {3.4191658328056064`*^9, 
   3.4191658912496448`*^9}, {3.4191659940074034`*^9, 
   3.4191659969716654`*^9}, {3.419166036168027*^9, 3.4191660387717714`*^9}, {
   3.419166082955304*^9, 3.419166089815168*^9}, {3.419166127619528*^9, 
   3.4191661797344656`*^9}, 3.4191662777854557`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:5c0f\:8bd5\:9a8c", "Subsection",
 CellChangeTimes->{3.419197940160578*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Gene", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "2"}], ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5", ",", 
       RowBox[{"-", "6"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "3"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "5"}], ",", 
       RowBox[{"-", "1"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", 
       RowBox[{"-", "3"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "4"}], ",", "0"}], "}"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.419166446027376*^9, 3.41916646399321*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DrawLines", "[", 
  RowBox[{"MyTree", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}], ",", "7", ",", "8", ",", "Gene", ",", 
    RowBox[{"{", "}"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.4191662934780207`*^9, 3.4191664243462*^9}, {
  3.4191664594867296`*^9, 3.4191664610990477`*^9}}],

Cell[BoxData[
 GraphicsBox[LineBox[CompressedData["
1:eJyd1mlLlGEUBmBLSzOr0dFRy8wFy9QiomgPI2izjX5CP6D+WpstQiRmZVaS
S1qCa1LmDC6TNlOm07np9svhfr744XDB8L5nznOe7a2+fffWneysrKyNFhma
zGQyueYw/WTuMifMHeaoWWIOmFFz0IwJ+/mcd4p5vpqFAaPCUdYxxTz4vTRg
uXCQ72M8e4QYT4XwFd/rMPeZXWa1+casDVgnbOP7z8xG4VOzXvjCrDSf0Mdm
jbCV4/C+NYtYR1T4jv30fjQLzHb63CwzXzIf+lEcMCZs5fuP2FfvQ86Tt43r
5QG9z7q998yIsNPMZh05wtfmZiHW2aIF1l3KYpBivSwLsV7SwmmLuMU3i4Rw
xmI24AprWLBIBuIXn/GOs65Ji1XhGPN7I9wz6ME088GfzPub9WFs8wGTwjjf
n+Fv3h8WS8J5vrvWx+8Wc8JQf/9wbGn2xPuXPfHu5B4o5tlVQLeaQ8J8nhne
Su61Cp4d3iqzO+AXs8H8kPl/FvQIm1inN8a6yniWe0uY34txY74O8jn8zwjr
gThTJoSVPKO9h81e85DZJzzCPimxDs9yHKfNz8Jm1ultYF1N3Mve/czvxbqf
5Xyn2Mc410FCWMbnvbhLsX5xxqSFG5jfi7NqbZ9hHpa5D7zIsSjcwv/PM+cD
JoXbTdz3eynuJNx7mF+cu7hjsEbQP5y36G9MeIDPeSuYZ7dFYcCosIZ1VDAP
fi8NWC5s4PuNHIu3ibm9p/ge1h/u7eMWuPdPWNQGrBNe4PsX+Z/eSxb1wnMW
2EOX6RX2wtvCcXiPWRSxjqjwKPvpxb7E2m+m5y2wps8wH/pRHDAmbOH7V9lX
7zXOkxd9w3q5Tm+wbu9Ni4gQ50M268gRnrTYLERN2EfobYrnCMRcLQuxXtJC
jDnO8zQhRG9mA67w/FngvkwK81mnt4p1Yc2sCquZ34uzAecf7stp5oPbmDc3
a33nSgnfj7EvXuzdJWGE/VvrI9bEnDDUX8zlGOsYF2INTArx3YD7Ezn6eab2
88wdEuL7aECIXLj3cdd0CVFDd0Dcw/jexL2PO65HOMA6vTOsC3M3LIwzvxfj
xnz18Tn8zwjrgROBwDhHhaixlzX1Cd+zZiXWYQfH0clavO2s0zvIugbYa+8Q
83ux7mc53yn2Eb1JBGKaz3uxx7A28B2ZFmaY37v2rZ/LfbOJ+8Cbx/3kTWXW
913+D2uG22Q=
   "]]]], "Output",
 CellChangeTimes->{3.466664450015625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Gene", "=", 
  RowBox[{"Mutate", "[", "Gene", "]"}]}]], "Input",
 CellChangeTimes->{{3.419166475609914*^9, 3.4191665270739155`*^9}, 
   3.4191666278488226`*^9, {3.419213247942086*^9, 3.4192132493941746`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2"}], ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", 
     RowBox[{"-", "6"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "5"}], ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", 
     RowBox[{"-", "3"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "4"}], ",", "0"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.466664455890625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DrawLines", "[", 
  RowBox[{"MyTree", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}], ",", "7", ",", "8", ",", "Gene", ",", 
    RowBox[{"{", "}"}]}], "]"}], "]"}]], "Input"],

Cell[BoxData[
 GraphicsBox[LineBox[CompressedData["
1:eJx91vlL1EEYx3FLuy9tSzvM0qjMLCKK7iiC7ov+hP6A+te67IIo7KYIS1uj
Qu3SzZUSs9a02p4PvYXl4Zn9YXjBsDPfZ56ZeWYbz104e76yoqJiqrUijhSL
xRnmG3xlLjffmwvMHnOx2WVmzKy5KLCT33k/Mc9HsyZhJrCHOD4xj/rrEi4N
zDJe61kZqPXUBz5gXLu5znxsNpqPzNUJ1wTeYvxNc0PgDbM58I7ZYF7Ha2ZT
YBvr8D4xFxJHJvBpwg5zrnkXb5tLzHvM184+R9YGtjH+Knn1XmGfvLc4L5fx
EvF5L5rVgffNSuKoCnyYUOds1JrOXcFaFnVeJgJ1XsYCc9by1vqtDQUOlrFA
DBo/Qr/3Z8I+az+sfaDP28v83mruzHQzx2/ld2L5Ze0raxtOOBKYZ/wgfd4v
xOsdZuxkHgesfQtM5XectY2RE+/vhMu4A5O1bC7OMbsDZ1MzvA3ctXpqh3dV
GfW9FsY30+9tTag796L4/869DIxqcyfrVq43sf5m+ifjWcl6vQ0l6y11C/Fv
Ji7v1jLqe/sYv4d+7/6ELay/lfV61zO/dzp3X/s9QB7fcg7eBS5JqLf0c/F/
LekPnML8XtUq3YlfnPkJ7oI3ukNyFvHP5DuRucD5pt77tag3Se+e9ld1V2+M
zojyp3qr/C4K3MjvvPXMs8JaTcJMYBNx1DOP+usSLg1sYfwG1uJtZW7vbsbp
/Ond3mFN7/5Oa6sTrgk8xPjDfNN7xFpz4AFrukNH8Ri58B5nHd7t1hYSRyZw
W0LdS539/XjQms70Xubbxz5H1gYeZ/wJ8uo9yT55lTedl1N4mvi8Z6xVB6o+
VBJHVeCuhIpJ75RyW6COSO3VRKDOy1ig1pynng4F1paxQP3Jcy+HAmcnXGX+
oP7+DGxkfq/eWb3749QdzSfnkQ/VhK/Ui+GEI4GLGV9LXrx1xOutZv2TedSZ
+BaYyq/qeC9x9AVWJVSN1LunOfQejKJi6g5UTrsC9T9L75Zq8ePAvjLqe1nG
v6bf25VQb8AL9vBlYJ75vf0lv+ngO50l8bxnvd4PJest9TnxdxCX91kZ9b12
xt+n33s3YZb1d7EWbzfze8fZG+33AHnUu69z8C4wl/CvNb37v8mpt8j83j98
cwb3bpr5JVDndzCwQPxjfCcyF/gPt6XS6A==
   "]]]], "Output",
 CellChangeTimes->{3.4666644596875*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:4ea4\:4e92\:5f0f\:5c0f\:7a0b\:5e8f", "Subsection",
 CellChangeTimes->{3.419197960529867*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DynamicModule", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Num", "=", "12"}], ",", "s"}], "}"}], ",", 
   RowBox[{
    RowBox[{"s", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"RandomInitial", "[", "]"}], ",", 
       RowBox[{"{", "Num", "}"}]}], "]"}]}], ";", 
    RowBox[{"Dynamic", "[", 
     RowBox[{"GraphicsGrid", "[", 
      RowBox[{
       RowBox[{"Partition", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"With", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"i", "=", "i"}], "}"}], ",", 
             RowBox[{"Button", "[", 
              RowBox[{
               RowBox[{"DrawLines", "[", 
                RowBox[{"MyTree", "[", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"0", ",", "0"}], "}"}], ",", "7", ",", "0", ",", 
                  RowBox[{"s", "[", 
                   RowBox[{"[", "i", "]"}], "]"}], ",", 
                  RowBox[{"{", "}"}]}], "]"}], "]"}], ",", 
               RowBox[{"s", "=", 
                RowBox[{"Table", "[", 
                 RowBox[{
                  RowBox[{"Mutate", "[", 
                   RowBox[{"s", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", 
                  RowBox[{"{", "Num", "}"}]}], "]"}]}], ",", 
               RowBox[{"Appearance", "\[Rule]", "None"}]}], "]"}]}], "]"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "Num"}], "}"}]}], "]"}], ",", "4"}], "]"}], ",",
        
       RowBox[{"Frame", "\[Rule]", "All"}], ",", 
       RowBox[{"ImageSize", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"800", ",", "800"}], "}"}]}]}], "]"}], "]"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.419165308471651*^9, 3.419165313048232*^9}, {
  3.4191656949573903`*^9, 3.419165698502488*^9}}],

Cell[BoxData[
 DynamicModuleBox[{$CellContext`Num$$ = 12, $CellContext`s$$ = {{{-4, -2}, {1,
   6}, {4, -4}, {0, 2}, {-5, 2}, {6, 6}, {-1, -4}, {2, 4}}, {{-4, -2}, {1, 
  6}, {2, -4}, {0, 2}, {-5, 2}, {6, 6}, {-1, 1}, {2, 4}}, {{-4, -2}, {1, 6}, {
  2, -4}, {0, 2}, {-5, 2}, {6, 6}, {-1, -4}, {2, 4}}, {{-4, -2}, {1, 6}, {
  2, -4}, {0, 2}, {-5, 5}, {6, 6}, {-1, -4}, {2, 4}}, {{-4, -2}, {1, 2}, {
  2, -4}, {0, 2}, {-5, 2}, {6, 6}, {-1, -4}, {2, 4}}, {{2, -2}, {1, 6}, {
  2, -4}, {0, 2}, {-5, 2}, {6, 6}, {-1, -4}, {2, 4}}, {{-4, -2}, {2, 6}, {
  2, -4}, {0, 2}, {-5, 2}, {6, 6}, {-1, -4}, {2, 4}}, {{-4, -2}, {1, 6}, {
  2, -4}, {0, 2}, {-5, 2}, {6, 6}, {-1, -4}, {2, 4}}, {{3, -2}, {1, 6}, {
  2, -4}, {0, 2}, {-5, 2}, {6, 6}, {-1, -4}, {2, 4}}, {{-4, -2}, {1, 6}, {
  2, -4}, {0, 2}, {-5, 2}, {6, 6}, {-1, -4}, {2, 4}}, {{-4, -2}, {1, 6}, {
  3, -4}, {0, 2}, {-5, 2}, {6, 6}, {-1, -4}, {2, 4}}, {{-4, -2}, {1, 6}, {
  2, -4}, {0, 2}, {-5, 2}, {6, 6}, {-1, -4}, {5, 4}}}}, 
  DynamicBox[ToBoxes[
    GraphicsGrid[
     Partition[
      Table[
       With[{$CellContext`i$ = $CellContext`i}, 
        Button[
         $CellContext`DrawLines[
          $CellContext`MyTree[{0, 0}, 7, 0, 
           Part[$CellContext`s$$, $CellContext`i$], {}]], $CellContext`s$$ = 
         Table[
           $CellContext`Mutate[
            Part[$CellContext`s$$, $CellContext`i$]], {$CellContext`Num$$}], 
         Appearance -> None]], {$CellContext`i, $CellContext`Num$$}], 4], 
     Frame -> All, ImageSize -> {800, 800}], StandardForm],
   ImageSizeCache->{800., {398., 402.}}],
  DynamicModuleValues:>{}]], "Output",
 CellChangeTimes->{3.4666366385155*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "Subsection",
 CellChangeTimes->{{3.419197960529867*^9, 3.4191979762324467`*^9}}],

Cell[TextData[{
 ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]",
  BaseStyle->"SlidePreviousNextLink",
  ButtonFunction:>FrontEndExecute[{
     FrontEndToken[
      FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}],
  ButtonNote->FEPrivate`FrontEndResource[
   "FEStrings", "SlideshowPrevSlideText"],
  ButtonFrame->"None"],
 "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]",
 ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]",
  BaseStyle->"SlidePreviousNextLink",
  ButtonFunction:>FrontEndExecute[{
     FrontEndToken[
      FrontEnd`ButtonNotebook[], "ScrollPageNext"]}],
  ButtonNote->FEPrivate`FrontEndResource[
   "FEStrings", "SlideshowNextSlideText"],
  ButtonFrame->"None"]
}], "PreviousNext"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1272, 697},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (April 27, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "SlideShowHeader"->{
  Cell[590, 23, 64, 1, 11, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"SlideShowHeader", 17659, 482}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 64, 1, 11, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[679, 28, 1026, 13, 71, "Section"],
Cell[1708, 43, 761, 18, 27, "PreviousNext"],
Cell[CellGroupData[{
Cell[2494, 65, 197, 2, 36, "Subsection"],
Cell[2694, 69, 4730, 128, 312, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7461, 202, 82, 1, 36, "Subsection"],
Cell[7546, 205, 852, 29, 31, "Input"],
Cell[CellGroupData[{
Cell[8423, 238, 342, 8, 31, "Input"],
Cell[8768, 248, 1348, 24, 245, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10153, 277, 232, 4, 31, "Input"],
Cell[10388, 283, 735, 27, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11160, 315, 223, 6, 31, "Input"],
Cell[11386, 323, 1309, 23, 245, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[12744, 352, 100, 1, 36, "Subsection"],
Cell[CellGroupData[{
Cell[12869, 357, 1897, 51, 132, "Input"],
Cell[14769, 410, 1649, 30, 815, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[16467, 446, 90, 1, 36, "Subsection"],
Cell[16560, 449, 761, 18, 27, "PreviousNext"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
